home *** CD-ROM | disk | FTP | other *** search
/ Web Star/List Star - Eve…he Ultimate Internet Site / StarNine Internet Pubisher (Web Star and List Star)(StarNine)(1995).iso / ListSTAR™ / Tools and Enhancments / RFC Triggers / Check for Precedence Bulk RFC < prev    next >
Encoding:
Text File  |  1995-08-01  |  2.7 KB  |  64 lines  |  [TEXT/ToyS]
  1. -----------------------------------------------------------------------
  2. -- StarNine Technologies, Inc., hereby disclaims all copyright interest
  3. -- in the following source code.
  4. -- 
  5. -- This source code is free and has been placed into the public domain.
  6. -- You can redistribute it, modify it (including these comments) and/or
  7. -- create derivative works from it as you see fit.
  8. --
  9. -- This source code is made available in the hope that it will be useful,
  10. -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. -----------------------------------------------------------------------
  13.  
  14. (* UNCOMMENT FOR TESTING *)
  15. --property s9MailFileName : "test message"
  16. (* END TESTING SECTION *)
  17.  
  18. property trigger_succeeds : 1
  19. property trigger_fails : 0
  20. property trigger_error : -1
  21.  
  22. property spool_folder : ""
  23.  
  24.     try
  25.         tell application "Finder"
  26.             if (exists of item spool_folder) is false then --see if stored property is valid
  27.                 if exists of item ((startup disk as string) & "ListSTAR/SMTP:ListSTAR Server") then
  28.                     copy (startup disk as string) & "ListSTAR/SMTP:Message Spool/SMTP:" to spool_folder
  29.                 else if exists of item ((startup disk as string) & "ListSTAR/MS:ListSTAR Server") then
  30.                     copy (startup disk as string) & "ListSTAR/MS:Message Spool/MS:" to spool_folder
  31.                 else if exists of item ((startup disk as string) & "ListSTAR/POP:ListSTAR Server") then
  32.                     copy (startup disk as string) & "ListSTAR/POP:Message Spool/POP:" to spool_folder
  33.                 else if exists of item ((startup disk as string) & "ListSTAR/QM:ListSTAR Server") then
  34.                     copy (startup disk as string) & "ListSTAR/QM:Message Spool/QM:" to spool_folder
  35.                 else
  36.                 error "The Spool Folder could not be found." number 100
  37.                 end if
  38.             end if
  39.             if (exists of file (spool_folder & s9MailFileName)) is false then --check spool file
  40.             error "There is a problem with the spool file." number 101
  41.             end if
  42.             set theFile to open for access file (spool_folder & s9MailFileName) --open file for reading
  43.             set theLine to "Start" --initialize theLine
  44.             repeat while (the first character of theLine) is not return
  45.                 set theLine to read theFile until return --read in one line
  46.                 ignoring case
  47.                     if theLine contains "Precedence: Bulk" then
  48.                         close access theFile
  49.                         return trigger_succeeds
  50.                     end if
  51.                 end ignoring
  52.             end repeat
  53.             close access theFile
  54.         end tell
  55.         return trigger_fails
  56.     on error errMsg number errNum
  57.         close access theFile
  58.         if errNum is not -39 then --check for end of file
  59.             display dialog (errMsg & return & errNum) buttons {"Cancel"} default button "Cancel" with icon stop
  60.             return trigger_error
  61.         else --reached end of file 
  62.             return trigger_fails
  63.         end if
  64.     end try